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facility: 
; athe PL1 runtime Library. 
: abstract 
4 : This module contains the pl1 runtime routine for closing a file. 
author: c. spitz 18-jul-79 
3 modified: 
009 : 1-002 Bill Matthews 29-September-1982 
si Invoke macros $defdat and rtshare instead of $defopr and share. 
000 3 1-003 Chip Nylander 23-February-1983 
$00 : Add new optional parameter to PLISCLOSE. If parameter is 
000 3 present, it specifies the severity level at which to signal 
000 : errors. 
3 ; 1-004 Dave Blickstein 26-March-1984 
0 : Change calls to LIBSFREE_VM to specify only the actual number 
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of arguments they push (2) to the CALLS instruction. The 

or paneer count was being used to pop local stack temporaries. 
This broke when new versions of the VM routines that took 
optional arguments were called. 
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; external definitions 


Sdeffc sdefine file control block offsets 
scetpe rtcons sdefine ot runtime constants 
$defkcb sdefine key control block offsets 
$defenv sdefine environment block offsets 
$fabdef sdefine fab offsets 

Snamdef sdefine nam offsets 


: local data 


rtshare ;sharable 
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4 
5 ;++ 
§ ; pli$close -- close a file 
S 3 : functional description: 
0 ; This routine closes a pli file. The syntax of a close statement is: 
4. : CLOSE FILE(file-ref); 
09 38 3 inputs: 
0 94 ; (ap) = number of arguments (1) 
BS 95 ; 4(ap) = address of the fcb for this file 
96 ; B320} = address of the environment option 
464 a : 12(ap) = severity level at which to signal errors 
0000 39 ; outputs: 
0000 100 ; the fcb is updated to reflect the closed status of the file. 
0000 101 ; an rms close is issued, the file block is deallocated, and the 
0000 19 3 fcb is removed from the open fcb List. 
0000 103 ;-- 
0000 104 
OOF C B28 192 entry pli$close,*m<r2,r3,r4,r5,r6,r7> 
000 107 ; check argument 
000 108 ; 
6C D5 000 109 tstl (op) sif no parameters 
OC 14 0004 £4110 bgtr 10 zthen 
. 51 D4 0006 111 c{rl ri indicate no fcb 
50 00000000°8F 0 0008 11 movl gpl i8_porn.r0 zset invalid parameters 
0097 1 QOOOF 11 brw 50$ zand fail 
0012 114; 
0912 112 ; if file opened, close it. 
52. 04 AC 00 0012 117 108: movil 4(ap),r2 :get address of fcb 
03 OC A201 G 0016 118 bbs #atr_v_opened,fcb_l_attr(r2),20$ ;if file opened 
C 1 0018 119 brw 110$ sthen 
00020002 8F CA OOI1E 120 208: bicl #<atr_m_opened!atr_m_bfall>,- ;set file not opened and 
C ait 19] feb_l-attr(r2) sbuffer not allocated 
53 QOA6 C 9 026 1 § movab fcb_b_fab(r2),r3 get address of fab 
OC A2 00001040 8F D3 00 12 bitl #<atr_m_record! - if recor 
00 124 gpr.m_input>, teb_t_attrire) zor input 
1F 12 00 125 bneq 0$ zsthen cont 
05 0C A2. O7 €1 QO 126 bbc #atr_v_print,fcb_l_attr(r2),25$ ;if not print, cont 
34 Ae D5 ts 127 tstl feb_U_prn(r2s zany carriage control pending? 
0 12 0032 128 bneq 2 sif neq, xen. print it 
1¢ A2 14 A2 D1 OO3F 129 cmpl fcb_l_buf(r2),fcb_l_buf_pt(r2) ;if buf empty 
OE 13 0044 #42130 beql 30$ sthen cont 
C DD beg 131 pushl a save a 
5C 2 00 48 1 ; mov r 20 zset fcb addr in ap 
00000000 ' GF 18 “8 1 jsb g*pli$$put_rec sput the last record 
5C 8ED 5 134 popl ap srestore ap 
02 Cc Oo1 54 135 cmpl fap) 2 :close environment? 
19 or Ct«éSS § blss 7 ; s$, no 
D 591 tstl (ap) zanything there? 
1 5¢ 3=.:«1138 beql 7 sif eql, n 
¢ 5E 139 subl #env_k_len,sp zget room for env block 
D 61 140 movg r2,r6 save fcb and tab addr 
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6—€ 22 00 9 gC 64 141 moveS #0,(sp),#0,#env_k_len,(sp) ;zero env block 
B 6A 146 movg r6,r restore fcb and fab 
6€ 00000040 8F Cc 9p 14 bisl #env_m_close,env_l_status(sp) ;set close status 
E oD 4 144 pushl set addr of env block 
08 as DD 6 145 pushl (ap) ;set addr of close environment 
5 D 7 196 pushl fr sset addr of fc 
AE F 7B «(14 pushab 8(sp) sset addr of addr 
AE 9F OQO7E 133 pushab 8(sp) set addr of addr 
08 AE OF +h 16 pushab 8(sp) set addr of addr 
00000000 ' GF 98 Fe 084 139 calls aad process environment 
01 F 0 151 blbs r0,57 if lbs, cont 
4 OO8E 136 ret serror slreedy signaled, just return 
O8F 155 378: $close r3 sclose the file 
34 50 €8 0098 154 blbs r0,60$ z:if error on close 
50 rs a DO + 155 mov l aplis rmsf,r0 then set rms fab error code 
08 A2 0 oD OA 136 40S: mov r0,fcBb_l_error(r2) iput error in fcb 
» mw 8 BAS 15 mov r2,r i sset fcb address 
24 DD QOA 158 50$: pushl ri spush fcb addr 
0 dD OOAB 159 pusht r0 zspush error code 
00000000'°8F odD pap 160 pushl *#pli$_error zset error condition 
03 6C 01 008 161 cmpl ap) ,#3 zserror level specified? 
19 00B6 19¢ blss 53 sif lss, no 
6—€ 03 OO OC Ag FO 00B8 16 insv seen) #0,43,(sp) 3 set severity to specified level 
00000000'GF 0 FB O0BE 164 538: calls 43.9 pli$io.error :signal the condition 
re zreturn 
50 00000000'8F 00 00C6 166 55$: mov l fel S9_vtenendont £0 sset vir. mem. deallocation error 
D3 4611 #OOCD 8 167 brb 40$ zand fail 
OOCF 168 ; 
Bore 4 ; deallocate file buffer 
14 ae DS OOCF 171 60S: tsti fcb_l_buf(r2) :if buffer allocated 
2 13 00D2 16 beql 80$ jthen 
06 OC AZ OC 5 00D4 17 bbs #atr_v_ record, fcb_l_attr(r?),70$ ;if stream 
7E 2A Ag C 0009 174 movzwl fcb_w_Tinesize(r2),=(sp) ;set length of buffer 
0 11 OODD 175 brb 75$ zcont 
18 AS DD OODF 176 70$: pushl fcb_l_buf_end(r2) spush Length of buffer 
4A DF Boeg 177 75$: pushal fcb_l"bufTr2) zpush address of buffer 
04 ag DF Ope 178 pushal 4(sp) zspush address of length 
06000000'GF 0 F OE8 179 calls #2,g*lib$free_vm ifree buffer 
gf C Boee 180 addl2 one8P : 
D150 =#€ ore 13) blbc r0,55$ :if deallocation error then fail 
14 A D4 OOF 1 ¢ clrl fcb_l_buf(r2) indicate buffer not allocated 
18 A D4 OOF8 1 clrl fcb_l_buf_endir2) * 
0101 : 94 Ore 184 80$: clrb <fcB_5_nam+nam$b_esl>(r2) ; Lear est 
23 OC A2 E1 FF 185 bbc #atr_v_indexed, fcb_l_attr(r2),85$ ;if indexed 
38 A2 OD 13 136 tstl fcb_t. cb(r2) zkcb allocated? 
1 1 107. 1 beql 85$ if eql, no, cont 
1. 3CA 9A 4 133 movzbl fcb_b_numkcbs(r2),r1 sget number of kcbs 
7E 51_ 2€ C5 QO10D 189 mull #kcB_t_len,ri,-(sp) get size of kcbs 
38 A2 DF O111 190 pushal fcb_T_Kcb(r2) spush address of kcbs 
04 ag DF 0114 191 pushal 4(sp) spush address of length 
0000@)00'GF 0 Fe 117 135 call #2,Q*libSfree_vm ifree kcbs 
Be C VE 19 addl oneR 3 
A250 €9 Q1 194 blbc r0,55$ :if error, fail 
38 A2 4 : 3 13 clrl fob_l_keb(r2) sindicate no kcbs 
127. 197 : remove file from open file queue, set it not open and return 
| 
| 
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2s $¢ OF i 138 bss: remque (r2),:2 sremove fcb from queue 
os - iretutn* 
12£ : 
12E 0 
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! Psect synopsis ! 


+ sew e nae amraae + 


PSECT name Allocation PSECT No. Attributes 


. . 00000000 < + 00 ¢ Q.) NOPIC USR CON ABS LCL NOSHR NOEXE 
SABSS 000001 450.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR- EXE 
-PLISCODE QOOO012E ¢ 302.) 02 ¢ 2.) PIC USR CON REL LCL SHR_- EXE 
denote enema eene oo 
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Phase Page faults CPU Time Elapsed Time 


Initialization | 9 00:00:00.03 00:00:01.09 
Command processing 72 00:00:00.47 BF +07 08- 18 
Pass 176 00:00:06.10 00:00:23.6 

Symbol table sort 0 00:00:00.63 00:00:02.03 
Pass 2 41 00:00:01.05 00:00:04.54 
Symbol table output 9 00:00:00.08 BF Oh OS 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:20.00.00 00:00:00.00 
Assembler run totals 309 00:00:08.38 00:00:37.55 


The working set Limit was 900 pages. ? : 

30745 bytes _(61 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 516 non-local and 16 local symbols. 
203 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

18 pages of virtual memory were used to define 16 macros. 
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; Macro Library statistics ! 
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Macro Library name Macros defined 


.$255$DUA28: CPLIRTL.OBJJPLIRTMAC.MLB; 1 5 

$255$DUA28: CSYSLIBIJSTARLET.MLB;2 8 
TOTALS (all Libraries) 13 
593 GETS were required to define 13 macros. 


There were no errors, warnings or information messages. 
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MACRO/ENABLE=SUPPRESSION/DI SABLE=TRACEBACK/LIS=LIS$:PLICLOSE/OBJ=OBJ$:PLICLUSE MSRC$:PLICLOSE/UPDATE=(ENHS$:PLICLOSE)+LIB$:PLIRTMAC/L 


PMENT CORPORATION = 
SAND PROPRIETARY 


